home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / KTGCST.CST / 00007_Script_Banner Modifier scripts < prev    next >
Text File  |  1998-09-21  |  2KB  |  108 lines
  1. global gPop
  2. --resets the button state when the popups are toggled off
  3. on popmenu
  4.   resetbanner
  5.   updatestage
  6.   initpopMenu("pop",300,240,134,162,"pop")
  7. end
  8.  
  9. on popmenuKTG
  10.   resetbanner
  11.   updatestage
  12.   
  13.   if  gpop <> []  then set mywindow = getat(gpop,1)
  14.   
  15.   if mywindow =  (window "Pop") then
  16.     setat(gButtonstate,the clickon,0)
  17.     set one = the membernum of sprite the clickon
  18.     set the membernum of sprite the clickon = one -1
  19.     updatestage
  20.   end if
  21.   initpopMenu("pop",260,250,134,162,"pop")
  22. end
  23.  
  24. on popmenuRules1
  25.   resetbanner
  26.   updatestage
  27.   if  gpop <> []  then set mywindow = getat(gpop,1)
  28.   
  29.   if mywindow =  (window "Pop") then
  30.     setat(gButtonstate,the clickon,0)
  31.     set one = the membernum of sprite the clickon
  32.     set the membernum of sprite the clickon = one -1
  33.     updatestage
  34.   end if
  35.   initpopMenu("pop",300,45,134,162,"pop")
  36. end
  37.  
  38. on popmenuRules2
  39.   resetbanner
  40.   updatestage
  41.   
  42.   if  gpop <> []  then set mywindow = getat(gpop,1)
  43.   
  44.   if mywindow =  (window "Pop") then
  45.     setat(gButtonstate,the clickon,0)
  46.     set one = the membernum of sprite the clickon
  47.     set the membernum of sprite the clickon = one -1
  48.     updatestage
  49.   end if
  50.   initpopMenu("pop",315,210,134,162,"pop")
  51. end
  52. on helpbutton
  53.   losepop(window "pop")
  54.   puppetsound 0
  55.  resetbanner
  56.   updatestage
  57.   starthelp(the clickon)
  58. end
  59. on helpbuttonBTG
  60.   stoponly
  61.   puppetsound 0
  62.   resetbanner
  63.   losepop(window "pop")
  64.   updatestage
  65.   starthelp(the clickon)
  66. end
  67.  
  68. on popmenuBTG
  69.   resetbanner
  70.   updatestage
  71.   if  gpop <> []  then set mywindow = getat(gpop,1)
  72.   if mywindow =  (window "Pop") then
  73.     setat(gButtonstate,the clickon,0)
  74.     set one = the membernum of sprite the clickon
  75.     set the membernum of sprite the clickon = one -1
  76.     updatestage
  77.   end if
  78.   initpopMenu("pop",26,240,134,162,"pop")
  79. end
  80.  
  81. global gwhat1, gwhat2,dlflag
  82. on teamplaydef
  83.   set dlflag = 1
  84.   puppetsound 0
  85.   losepop
  86.   resetbanner
  87.   threestatebutton
  88.   updatestage
  89.   setdefaultscreen(43)
  90.   set gwhat1 = "!offence.dat"
  91.   set gwhat2 = "bkg_play.bmp"
  92.   play movie "DL"
  93. end
  94.  
  95.  
  96. on teamplayAtt
  97.   set dlflag = 1
  98.   puppetsound 0
  99.   losepop
  100.   resetbanner
  101.   threestatebutton
  102.   updatestage
  103.   setdefaultscreen(43)
  104.   set gwhat1 = "defence.dat;!offence.dat"
  105.   set gwhat2 = "bkg_play.bmp"
  106.   play movie "DL"
  107. end
  108.